﻿
Imports elpmis
Imports runrroom.delegateClient

Namespace rrdelegtFunctions
    Public Class _updateStatus
        Inherits inputIFunction(Of Int64, Boolean)

        Public Sub New()
            MyBase.New("updateStatus")
        End Sub

        Protected Overrides Function finder() As iVariableFinder(Of Int64)
            Return int_finder()
        End Function

        Protected Overrides Function invoke(ByVal i As Int64, ByRef o As Boolean) As Boolean
            o = updateStatus(New percentage_t(i))
            Return True
        End Function

        Protected Overrides Function returnType() As typeDefination
            Return typeDefination.bool
        End Function
    End Class
End Namespace
